﻿Imports Microsoft.Reporting.WinForms

Public Class RptContabilidad

    Private Shared Function ParamEmpresa() As List(Of ReportParameter)
        Dim oParametros = New List(Of ReportParameter)
        Dim emp As GBDZafiro.Empresa = (New Tools).crearEmpresa()
        oParametros.Add(New ReportParameter("RAZON_SOCIAL", emp.RAZON_SOCIAL))
        oParametros.Add(New ReportParameter("NIT", emp.NIT))
        oParametros.Add(New ReportParameter("DIRECCION", emp.DIRECCION))
        oParametros.Add(New ReportParameter("TELEFONO", emp.TELEFONO))
        Return oParametros
    End Function

    Public Shared Sub RptPlanCuentas(ByRef rv As ReportViewer, ByRef dtPlanCuentas As DataTable)
        Dim rdsInvProd = New ReportDataSource()

        rdsInvProd.Value = dtPlanCuentas
        rdsInvProd.Name = "CONSULPLANCUENTAS"

        rv.LocalReport.ReportEmbeddedResource = "Zafiro_SIF.RptPlanCuentas.rdlc"
        rv.LocalReport.DataSources.Clear()
        rv.LocalReport.SetParameters(ParamEmpresa())
        rv.LocalReport.DataSources.Add(rdsInvProd)
        rv.LocalReport.Refresh()
    End Sub

End Class
